newpred$predict = newpred$p1 > 0.3
head(newpred)
